home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / geos-archive / GEOS-D64 / GeoThek Programme (19xx)(-)(de)[gt105a].d64 / detonator 2 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  83 lines
  1. 10 REM CLEARING THE SCREEN
  2. 20 PRINT"[147]"
  3. 30 REM SETTING THE VALUE OF YS
  4. 40 YS=10
  5. 50 REM PRINTING OUT SPACES
  6. 60 PRINT"                                  "
  7. 70 PRINT"                                  "
  8. 80 PRINT"                                  "
  9. 90 PRINT"                                  "
  10. 100 PRINT"                                  "
  11. 105 PRINT ""
  12. 110 REM IF THE VALUE OF YS = 0 THEN PRINT OUT BOOM
  13. 120 IF YS = 0 THEN GOTO250
  14. 130 REM PRINTING OUT THE TEXT
  15. 140 PRINTTAB(7)"EXPLOSIVES ARE NOW ARMED"
  16. 150 PRINT"                                  "
  17. 160 PRINTTAB(5)"PLEASE EXERCIZE EXTREME CAUTION"
  18. 170 PRINT"                                  "
  19. 180 PRINTTAB(6)"SCREEN WILL DETONATE IN ";YS
  20. 190 REM DECREASING VALUE OF YS IN THE LOOP
  21. 200 YS = YS -1
  22. 210 REM USING DELAY LOOP
  23. 220 FOR X = 1 TO 625:NEXT X
  24. 230 REM SENDING PROGRAM BACK TO MAIN TEXT
  25. 240 IF YS >= 1 THEN GOTO60
  26. 250 PRINT"                                 "
  27. 260 PRINT"                                 "
  28. 261 PRINT"                                 "
  29. 262 PRINT"                                 "
  30. 263 PRINT"                                 "
  31. 264 PRINT"                                 "
  32. 265 PRINT"                                 "
  33. 266 PRINT"                                 "
  34. 270 PRINT"                                 "
  35. 271 PRINT"                                 "
  36. 272 PRINT"                                 "
  37. 273 PRINT"                                 "
  38. 274 PRINT"                                 "
  39. 275 PRINT"                                 "
  40. 276 PRINT"                                 "
  41. 277 PRINT"                                 "
  42. 278 PRINT"                                 "
  43. 279 PRINT"                                 "
  44. 280 PRINT"                                 "
  45. 288 POKE 53280,0:POKE 53281,0
  46. 291 PRINTTAB(18)"BOOM"
  47. 292 PRINT"                                       "
  48. 293 PRINT"                                       "
  49. 294 PRINT"                                       "
  50. 295 PRINT"                                       "
  51. 296 PRINT"                                       "
  52. 297 PRINT"                                       "
  53. 298 PRINT"                                       "
  54. 299 PRINT"                                       "
  55. 300 PRINT"                                       "
  56. 301 PRINT"                                       "
  57. 302 PRINT"                                       "
  58. 303 POKE 53280,0:POKE 53281,0
  59. 304 POKE 53280,1:POKE 53281,1
  60. 305 POKE 53280,2:POKE 53281,2
  61. 306 POKE 53280,0:POKE 53281,0
  62. 307 POKE 53280,1:POKE 53281,1
  63. 308 POKE 53280,8:POKE 53281,8
  64. 309 POKE 53280,2:POKE 53281,2
  65. 310 POKE 53280,0:POKE 53281,0
  66. 311 POKE 53280,1:POKE 53281,1
  67. 312 POKE 53280,0:POKE 53281,0
  68. 313 POKE 646,0
  69. 328 REM --CLEAR SOUND CHIP--
  70. 330 FOR I=54272 TO 54296:POKE I,0:NEXT I
  71. 350 GOSUB 1000:GOTO 2020
  72. 1000 V=15:POKE 54296,V
  73. 1010 POKE 54277,24:POKE 54278,237
  74. 1020 POKE 54284,24:POKE 54285,237
  75. 1030 POKE 54276,129:POKE 54283,129
  76. 1040 POKE 54272,INT(RND(1)*50)
  77. 1050 POKE 54273,INT(RND(1)*4)+1
  78. 1060 POKE 54279,INT(RND(1)*50)+50
  79. 1070 POKE 54280,INT(RND(1)*4)+5
  80. 1080 POKE 54276,128:POKE 54283,128
  81. 1090 FOR D=1 TO 500:NEXT D:RETURN
  82. 2020 END
  83.